home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / sinda.vim < prev    next >
Encoding:
Text File  |  2001-06-01  |  4.2 KB  |  147 lines
  1. " Vim syntax file
  2. " Language:     sinda85, sinda/fluint input file
  3. " Maintainer:   Adrian Nagle, anagle@ball.com
  4. " Last Change:  2001 May 15
  5. " Filenames:    *.sin
  6. " URL:          http://www.naglenet.org/vim/syntax/sinda.vim
  7. " MAIN URL:     http://www.naglenet.org/vim/
  8.  
  9.  
  10.  
  11. " For version 5.x: Clear all syntax items
  12. " For version 6.x: Quit when a syntax file was already loaded
  13. if version < 600
  14.   syntax clear
  15. elseif exists("b:current_syntax")
  16.   finish
  17. endif
  18.  
  19.  
  20.  
  21. " Ignore case
  22. syn case ignore
  23.  
  24.  
  25.  
  26. "
  27. "
  28. " Begin syntax definitions for sinda input and output files.
  29. "
  30.  
  31. " Force free-form fortran format
  32. let fortran_free_source=1
  33.  
  34. " Load FORTRAN syntax file
  35. if version < 600
  36.   source <sfile>:p:h/fortran.vim
  37. else
  38.   runtime! syntax/fortran.vim
  39. endif
  40. unlet b:current_syntax
  41.  
  42.  
  43.  
  44. " Define keywords for SINDA
  45. syn keyword sindaMacro    BUILD BUILDF DEBON DEBOFF DEFMOD FSTART FSTOP
  46.  
  47. syn keyword sindaOptions  TITLE PPSAVE RSI RSO OUTPUT SAVE QMAP USER1 USER2
  48. syn keyword sindaOptions  MODEL PPOUT NOLIST MLINE NODEBUG DIRECTORIES
  49. syn keyword sindaOptions  DOUBLEPR
  50.  
  51. syn keyword sindaRoutine  FORWRD FWDBCK STDSTL FASTIC
  52.  
  53. syn keyword sindaControl  ABSZRO ACCELX ACCELY ACCELZ ARLXCA ATMPCA
  54. syn keyword sindaControl  BACKUP CSGFAC DRLXCA DTIMEH DTIMEI DTIMEL
  55. syn keyword sindaControl  DTIMES DTMPCA EBALNA EBALSA EXTLIM ITEROT
  56. syn keyword sindaControl  ITERXT ITHOLD NLOOPS NLOOPT OUTPUT OPEITR
  57. syn keyword sindaControl  PATMOS SIGMA TIMEO TIMEND UID
  58.  
  59. syn keyword sindaSubRoutine  ASKERS ADARIN ADDARY ADDMOD ARINDV
  60. syn keyword sindaSubRoutine  RYINV ARYMPY ARYSUB ARYTRN BAROC
  61. syn keyword sindaSubRoutine  BELACC BNDDRV BNDGET CHENNB CHGFLD
  62. syn keyword sindaSubRoutine  CHGLMP CHGSUC CHGVOL CHKCHL CHKCHP
  63. syn keyword sindaSubRoutine  CNSTAB COMBAL COMPLQ COMPRS CONTRN
  64. syn keyword sindaSubRoutine  CPRINT CRASH CRVINT CRYTRN CSIFLX
  65. syn keyword sindaSubRoutine  CVTEMP D11CYL C11DAI D11DIM D11MCY
  66. syn keyword sindaSubRoutine  D11MDA D11MDI D11MDT D12CYL D12MCY
  67. syn keyword sindaSubRoutine  D12MDA D1D1DA D1D1IM D1D1WM D1D2DA
  68. syn keyword sindaSubRoutine  D1D2WM D1DEG1 D1DEG2 D1DG1I D1IMD1
  69. syn keyword sindaSubRoutine  D1IMIM D1IMWM D1M1DA D1M2MD D1M2WM
  70. syn keyword sindaSubRoutine  D1MDG1 D1MDG2 D2D1WM D1DEG1 D2DEG2
  71. syn keyword sindaSubRoutine  D2D2
  72.  
  73. syn keyword sindaIdentifier  BIV CAL DIM DIV DPM DPV DTV GEN PER PIV PIM
  74. syn keyword sindaIdentifier  SIM SIV SPM SPV TVS TVD
  75.  
  76.  
  77.  
  78. " Define matches for SINDA
  79. syn match  sindaFortran     "^F[0-9 ]"me=e-1
  80. syn match  sindaMotran      "^M[0-9 ]"me=e-1
  81.  
  82. syn match  sindaComment     "^C.*$"
  83. syn match  sindaComment     "^R.*$"
  84. syn match  sindaComment     "\$.*$"
  85.  
  86. syn match  sindaHeader      "^header[^,]*"
  87.  
  88. syn match  sindaIncludeFile "include \+[^ ]\+"hs=s+8 contains=fortranInclude
  89.  
  90. syn match  sindaMacro       "^PSTART"
  91. syn match  sindaMacro       "^PSTOP"
  92. syn match  sindaMacro       "^FAC"
  93.  
  94. syn match  sindaInteger     "-\=\<[0-9]*\>"
  95. syn match  sindaFloat       "-\=\<[0-9]*\.[0-9]*"
  96. syn match  sindaScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
  97.  
  98. syn match  sindaEndData          "^END OF DATA"
  99.  
  100. if exists("thermal_todo")
  101.   execute 'syn match  sindaTodo ' . '"^'.thermal_todo.'.*$"'
  102. else
  103.   syn match  sindaTodo     "^?.*$"
  104. endif
  105.  
  106.  
  107.  
  108. " Define the default highlighting
  109. " For version 5.7 and earlier: only when not done already
  110. " For version 5.8 and later: only when an item doesn't have highlighting yet
  111. if version >= 508 || !exists("did_sinda_syntax_inits")
  112.   if version < 508
  113.     let did_sinda_syntax_inits = 1
  114.     command -nargs=+ HiLink hi link <args>
  115.   else
  116.     command -nargs=+ HiLink hi def link <args>
  117.   endif
  118.  
  119.   HiLink sindaMacro             Macro
  120.   HiLink sindaOptions           Special
  121.   HiLink sindaRoutine           Type
  122.   HiLink sindaControl           Special
  123.   HiLink sindaSubRoutine        Function
  124.   HiLink sindaIdentifier        Identifier
  125.  
  126.   HiLink sindaFortran           PreProc
  127.   HiLink sindaMotran            PreProc
  128.  
  129.   HiLink sindaComment           Comment
  130.   HiLink sindaHeader            Typedef
  131.   HiLink sindaIncludeFile       Type
  132.   HiLink sindaInteger           Number
  133.   HiLink sindaFloat             Float
  134.   HiLink sindaScientific        Float
  135.  
  136.   HiLink sindaEndData           Macro
  137.  
  138.   HiLink sindaTodo              Todo
  139.  
  140.   delcommand HiLink
  141. endif
  142.  
  143.  
  144. let b:current_syntax = "sinda"
  145.  
  146. " vim: ts=8 sw=2
  147.